home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
501-525
/
disk_510
/
atcopy
/
konv.asm
< prev
next >
Wrap
Assembly Source File
|
1992-05-06
|
1KB
|
74 lines
;int Konvert(int wert, char Option, int *flag)
;{
xdef _Konvert
_Konvert:
; *flag = FALSE;
; wert 8 "l"
; Option 12 "c"
; flag 14 "*l"
link a5,#0
move.l 14(a5),a0
moveq #0,d0
move.l d0,(a0)
;
; switch(Option)
move.b 12(a5),d0
sub.w #67,d0
beq Cc
sub.w #11,d0
beq Nn
; bra def
; {
; default :
def:
; if (wert > 127)
; {
cmp.l #128,8(a5)
; ble Nn
bge konv
; case 'N':
; case 'n':
Nn:
; if (wert == 10)
; {
cmp.l #10,8(a5)
bne ex
; wert = 13;
move.l #13,8(a5)
; *flag = TRUE;
move.l 14(a5),a0
move.l #1,(a0)
; }
; break;
bra ex
; case 'C':
; case 'c':
Cc:
; if (wert > 127)
; {
cmp.l #127,8(a5)
ble ex
konv:
; wert = tabelle[wert - 128];
move.l 8(a5),d0
; lea _tabelle+-128,a2
move.b (a2,d0.l),d0
move.l d0,8(a5)
; }
; break;
; bra ex
ex:
; return(wert);
move.l 8(a5),d0
unlk a5
rts
;}
;